﻿Imports Microsoft.VisualBasic

Public Class SessionClass
    Private UserID As Integer
    Private FullName As String
    Private UserName As String
    Private UserLevel As Integer
    Private emp_Num As Integer
    Private Emp_CompanyGroup As String
    Private Emp_Company As String
    Private Emp_Department As String
    Private Emp_Project As String
    Private Emp_Status As String
    Private Remarks As String

    Sub setUserID(ByVal userID As String)
        Me.UserID = userID
    End Sub

    Sub setFullName(ByVal FullName As String)
        Me.FullName = FullName
    End Sub

    Sub setUserLevel(ByVal UserLevel As String)
        Me.UserLevel = IIf(UserLevel = "", 0, UserLevel)
    End Sub

    Sub setemp_Num(ByVal emp_Num As Integer)
        Me.emp_Num = emp_Num
    End Sub

    Sub setEmp_CompanyGroup(ByVal Emp_CompanyGroup As String)
        Me.Emp_CompanyGroup = Emp_CompanyGroup
    End Sub
    Sub setEmp_Company(ByVal Emp_Company As String)
        Me.Emp_Company = Emp_Company
    End Sub
    Sub setEmp_Department(ByVal Emp_Department As String)
        Me.Emp_Department = Emp_Department
    End Sub

    Sub setEmp_Project(ByVal Emp_Project As String)
        Me.Emp_Project = Emp_Project
    End Sub
    Sub setEmp_Status(ByVal Emp_Status As String)
        Me.Emp_Status = Emp_Status
    End Sub
    Sub setRemarks(ByVal Remarks As String)
        Me.Remarks = Remarks
    End Sub
    Sub setUserName(ByVal UserName As String)
        Me.UserName = UserName
    End Sub


    Function getUserName() As String
        Return Me.UserName
    End Function

    Function getUserID() As Integer
        Return Me.UserID
    End Function

    Function getFullName() As String
        Return Me.FullName
    End Function

    Function getUserLevel() As Integer
        Return Me.UserLevel
    End Function

    Function getemp_Num() As Integer
        Return Me.emp_Num
    End Function

    Function getEmp_CompanyGroup() As String
        Return Me.Emp_CompanyGroup
    End Function
    Function getEmp_Company() As String
        Return Me.Emp_Company
    End Function
    Function getEmp_Department() As String
        Return Me.Emp_Department
    End Function

    Function getEmp_Project() As String
        Return Me.Emp_Project
    End Function
    Function getEmp_Status() As String
        Return Me.Emp_Status
    End Function
    Function getRemarks() As String
        Return Me.Remarks
    End Function

End Class
